home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / VCLZip / kpdemosd.exe / ZipUtil / IncZip.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-16  |  1.5 KB  |  55 lines
  1. { ********************************************************************************** }
  2. {                                                                                    }
  3. {      COPYRIGHT 1997 Kevin Boylan                                                    }
  4. {     Source File: IncZip.pas                                                        }
  5. {     Description: VCLUnZip component demo - native Delphi unzip component.          }
  6. {     Date:        March 1997                                                        }
  7. {     Author:      Kevin Boylan, CIS: boylank                                        }
  8. {                                Internet: boylank@compuserve.com                    }
  9. {                                                                                    }
  10. { ********************************************************************************** }
  11. unit IncZip;
  12.  
  13. { $Log: }
  14.  
  15. interface
  16.  
  17. uses
  18. {$IFDEF WIN32}
  19.   Windows,
  20. {$ELSE}
  21.   WinTypes, WinProcs,
  22. {$ENDIF}
  23.   SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  24.   Buttons, ExtCtrls;
  25.  
  26. type
  27.   TIncompleteZipDlg = class(TForm)
  28.     OKBtn: TButton;
  29.     CancelBtn: TButton;
  30.     Bevel1: TBevel;
  31.     Label1: TLabel;
  32.     Label2: TLabel;
  33.     Button1: TButton;
  34.     procedure FormActivate(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. var
  42.   IncompleteZipDlg: TIncompleteZipDlg;
  43.  
  44. implementation
  45.  
  46. {$R *.DFM}
  47.  
  48. procedure TIncompleteZipDlg.FormActivate(Sender: TObject);
  49. begin
  50.     MessageBeep(0);
  51. end;
  52.  
  53.  
  54. end.
  55.